/ Amiga Tools 5 / Amiga Tools 5.iso / tools / usefull / blocnotes / note00001a700000049600000a34!

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ab 40 00 27 00 8c 00 64 | 00 f8 00 54 a7 00 00 00 |.@.'...d|...T....|
|00000010| 00 00 00 00 00 1a 70 00 | 00 04 96 00 00 0a 34 01 |......p.|......4.|
|00000020| 00 00 00 00 00 01 00 2f | 2a 53 69 6d 70 6c 65 20 |......./|*Simple |
|00000030| 73 63 72 69 70 74 20 74 | 6f 20 53 65 6e 64 20 61 |script t|o Send a|
|00000040| 20 6e 6f 74 65 20 61 73 | 20 61 20 6d 61 69 6c 2a | note as| a mail*|
|00000050| 2f 0a 0a 61 64 64 72 65 | 73 73 20 27 62 6c 6f 63 |/..addre|ss 'bloc|
|00000060| 6e 6f 74 65 73 2e 72 65 | 78 78 27 0a 6f 70 74 69 |notes.re|xx'.opti|
|00000070| 6f 6e 73 20 72 65 73 75 | 6c 74 73 0a 0a 2f 2a 2a |ons resu|lts../**|
|00000080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000090| 2a 2a 2a 41 54 54 45 4e | 54 49 4f 4e 2a 2a 2a 2a |***ATTEN|TION****|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2f 0a 2f 2a 20 4d | 55 53 54 20 62 65 20 64 |**/./* M|UST be d|
|000000c0| 65 66 69 6e 64 65 64 20 | 65 6e 76 69 6e 72 6f 6e |efinded |envinron|
|000000d0| 6d 65 6e 74 20 76 61 72 | 69 61 62 6c 65 20 53 45 |ment var|iable SE|
|000000e0| 4e 44 4d 41 49 4c 20 20 | 2a 2f 0a 2f 2a 2a 2a 2a |NDMAIL  |*/./****|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2f 0a 0a 53 45 4e 44 4d | 41 49 4c 3d 67 65 74 76 |/..SENDM|AIL=getv|
|00000130| 61 72 28 27 53 45 4e 44 | 4d 41 49 4c 27 29 0a 0a |ar('SEND|MAIL')..|
|00000140| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000170| 2a 2a 2a 2a 2a 2f 0a 0a | 2f 2a 47 65 74 20 74 68 |*****/..|/*Get th|
|00000180| 65 20 69 64 20 6f 66 20 | 74 68 65 20 6e 6f 74 65 |e id of |the note|
|00000190| 2a 2f 0a 0a 70 61 72 73 | 65 20 61 72 67 20 69 64 |*/..pars|e arg id|
|000001a0| 20 2e 0a 0a 49 53 41 4e | 4f 54 45 20 69 64 0a 69 | ...ISAN|OTE id.i|
|000001b0| 66 20 52 45 53 55 4c 54 | 3d 31 20 74 68 65 6e 20 |f RESULT|=1 then |
|000001c0| 64 6f 20 20 20 20 20 2f | 2a 20 43 68 65 63 6b 20 |do     /|* Check |
|000001d0| 69 66 20 74 68 65 20 69 | 64 20 69 73 20 76 61 6c |if the i|d is val|
|000001e0| 69 64 2a 2f 0a 20 20 20 | 47 45 54 4c 49 4e 45 20 |id*/.   |GETLINE |
|000001f0| 69 64 20 30 0a 20 20 20 | 6c 6e 3d 52 45 53 55 4c |id 0.   |ln=RESUL|
|00000200| 54 0a 20 20 20 69 66 20 | 70 6f 73 28 27 54 6f 3a |T.   if |pos('To:|
|00000210| 27 2c 6c 6e 29 3e 30 20 | 74 68 65 6e 20 64 6f 0a |',ln)>0 |then do.|
|00000220| 20 20 20 20 20 20 65 78 | 70 6f 72 74 20 69 64 20 |      ex|port id |
|00000230| 27 54 3a 6d 73 67 27 7c | 7c 69 64 0a 20 20 20 20 |'T:msg'|||id.    |
|00000240| 20 20 61 64 64 72 65 73 | 73 20 63 6f 6d 6d 61 6e |  addres|s comman|
|00000250| 64 20 53 45 4e 44 4d 41 | 49 4c 7c 7c 27 20 54 3a |d SENDMA|IL||' T:|
|00000260| 6d 73 67 27 7c 7c 69 64 | 7c 7c 27 20 3e 74 3a 72 |msg'||id|||' >t:r|
|00000270| 65 74 27 0a 20 20 20 20 | 20 20 61 64 64 72 65 73 |et'.    |  addres|
|00000280| 73 20 63 6f 6d 6d 61 6e | 64 20 27 72 65 71 75 65 |s comman|d 'reque|
|00000290| 73 74 63 68 6f 69 63 65 | 20 54 49 54 4c 45 20 4d |stchoice| TITLE M|
|000002a0| 61 69 6c 20 47 41 44 47 | 45 54 53 20 4f 6b 20 42 |ail GADG|ETS Ok B|
|000002b0| 4f 44 59 20 22 60 74 79 | 70 65 20 74 3a 72 65 74 |ODY "`ty|pe t:ret|
|000002c0| 60 22 27 0a 20 20 20 20 | 20 20 61 64 64 72 65 73 |`"'.    |  addres|
|000002d0| 73 20 63 6f 6d 6d 61 6e | 64 20 27 64 65 6c 65 74 |s comman|d 'delet|
|000002e0| 65 20 54 3a 6d 73 67 27 | 7c 7c 69 64 0a 20 20 20 |e T:msg'|||id.   |
|000002f0| 20 20 20 61 64 64 72 65 | 73 73 20 63 6f 6d 6d 61 |   addre|ss comma|
|00000300| 6e 64 20 27 64 65 6c 65 | 74 65 20 54 3a 72 65 74 |nd 'dele|te T:ret|
|00000310| 27 0a 20 20 20 65 6e 64 | 0a 65 6e 64 0a 0a 65 78 |'.   end|.end..ex|
|00000320| 69 74 0a 0a 67 65 74 76 | 61 72 3a 0a 66 69 6c 65 |it..getv|ar:.file|
|00000330| 6e 61 6d 65 3d 27 45 4e | 56 3a 27 7c 7c 61 72 67 |name='EN|V:'||arg|
|00000340| 28 31 29 0a 63 61 6c 6c | 20 6f 70 65 6e 28 27 76 |(1).call| open('v|
|00000350| 61 72 27 2c 66 69 6c 65 | 6e 61 6d 65 29 0a 73 74 |ar',file|name).st|
|00000360| 72 69 6e 67 3d 72 65 61 | 64 6c 6e 28 27 76 61 72 |ring=rea|dln('var|
|00000370| 27 29 0a 72 65 74 75 72 | 6e 20 73 74 72 69 6e 67 |').retur|n string|
|00000380| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a       |........|......  |
+--------+-------------------------+-------------------------+--------+--------+